home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / HANDLEFK.MOD < prev    next >
Text File  |  1987-03-03  |  2KB  |  34 lines
  1. (*----------------------------------------------------------------------*)
  2. (*   Handle_Function_Key --- Handle function key input during transfers *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Handle_Function_Key( Ch : CHAR );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Handle_Function_Key                                  *)
  10. (*                                                                      *)
  11. (*     Purpose:    Handle function key input during transfers           *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Handle_Function_Key( Ch : CHAR );                             *)
  16. (*                                                                      *)
  17. (*           Ch --- Probable function key (ESC just read before it)     *)
  18. (*                                                                      *)
  19. (*----------------------------------------------------------------------*)
  20.  
  21. VAR
  22.    Key_No: INTEGER;
  23.    I     : INTEGER;
  24.    J     : INTEGER;
  25.  
  26. BEGIN (* Handle_Function_Key *)
  27.  
  28.    Key_No := ORD( Ch );
  29.  
  30.    IF ( Pibterm_Command_Table[ Key_No ] = KeySendSy ) THEN
  31.       IF ( Key_Definitions[Key_No].Def <> NIL ) THEN
  32.          Send_Function_Key( Key_Definitions[Key_No].Def^ );
  33.  
  34. END   (* Handle_Function_Key *);